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e @ 
B™=5500 TAPE TO DISK RUUTINE MAY 1969 BY PeEeGe 00uz20000 
COMMENTS * TITLE? 85500/B89700 MARK XIv SYSTEM RELEASE " 00020100 @ 
Spree » FILE 10% SYMBOL /TAPEDSK TAPE JDt SYMBOL2/FILEUO Pcie MOOD E OL OY erie ct gate oie ei eae tet 
i * THIS MATERIAL IS PROPRIETARY TOG BURROUGHS CORPURATION * 000¢0102 1 
2 * AND IS NOT TO BE REPRODUCED» USEDs OR CISCLOSED * 00020103 |@ 
i see * EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON »  _QOGuUgO104 3 
‘| * WRITTEN AUTHORIZATION OF THE PATENT DIVISIUN OF * 00020105 4 
5 * BURROUGKS CORPURATIUNs LETROITs MIUHIGAN 48232 * 00020106 3|@ 
at Sol sons ape aie code eens Re ER, mE 01°) CY A Re ee ee aE a ea] 8 
7! * COPYRIGHT 1971» 1972 BURROUGHS CORPURATION * 00020108 7 
5 * AA320206. AA386657 #3 00020109 |@ 
2 ane BEGIN. I an Da a Se I te cei in pe ata menr athe OOO OU Oleic oss ot, cxttyh et ee cetan een ete ot ae ae eee Sete 
10 DEFINE M=MEMORY#sP=POLISH#;_ 00040000 
uM DEFINE FILEBASE=3g00083 40EF AULT MCP ADDRESS USEL IF GQ IN CULD START 00041000 
le ABEL TIMERS INN@ STARTS FOUND GOTCHAPFIURST #2 ee eee eee 00050000 beatae Oey fer 
BOOLEAN Bs 00052000 
INTEGER U3 00053000 
__.... INTEGER Ki. sis ng eae ten eae ae te 00054000 oa enter t E 
REAL TAPE» LNDX»CARD+LOADEDs DISK* CHECKS ls 00060000 
INTEGER ADDR; 00060100 
win RR RAN ALS IO BUPPEE RCRD 3 cbt) eed ee le ot ete a oes eet ee a OO OL UOUU:. aa tier ae 
ARRAY LOADBUTTON(30]¢ 00080000 
OCTU44100040{570421» 4% | 20 00090000 
ete toate en OOTOPS7UONOOOLObot ys 2 2 ey OOTOO000 oe kl a 
~~ OCT02118014413100555 & 3 22 00110000 
OCT4155124500004425» % 4 23 00120000 
Patt ind. 0h dehaee Genetica ieee OCOD SOUS OL OOOO Age. 6) TR io OR Os ee OOP SOO OO in aie ace ain cae, 
06T4441010402530305» x 6 25 00140000 © 
0€T0100023441310055% & 7 26 00150000 


eset a dads aie OT OOS OU 5 Pa 9 3 OS a aT OTB OGG opiate ote snices 


00T0060013441310055 % 9 30 00170000 
0CT0072015441310055% & 10 31 00180000 
PIE ee Sale oy eee eee DO TOO 7601 7441 31 005 58 2 oe, OOL 90000. - 
OCTS140000047700200" & 12 33 00200000 
OCT94411004010044415 4 13 34 00210000 
oer _.O6T9253910420527405* 8 14 0 35 . 90220000. 
O0cT74050051010024115 & 15 36 00230000 
OsQrG20905 * 16 37 ™ 43 00240000 
wath ac RICAN, (MEO OA GE CS Si atest La a ee ear a a Oe ren ohn ue SOO SSOOOO.S 2 
"DISK FAI™s “LURE*Q0Q0"» 0 00260000 
"TAPE FAI™» "LURE*000"» e1 00270000 
[Scenery NO MCR PB PLES O00 OMe Re ae i ee ee OL B0OOD 
"MCP FILE™» “ LOADED» 43 00290000 
"NOT IN D"™s “IRCTORY#"» a4 00300000 
Rt Sean "LOADER O"s "N DISKe "s 25 00310000 
"CRA FAIL"s "URES "se 26 00320000 
"SPO RAIL "se "URES om, 00321000 
bia cote ete try ce O OW OENG TART Bess : ee eae 00322000 
QO» "sNEW MCP™s» 00323000 
"a "es" , ENTER"? 003240006 
er anette! "OK TO C™*"ONTINUEO™s 00325000 
03 , 00330000 
ARRAY TABLE tsite "MCP "e"DISK "s"SYSTEM "20903 00340000 
SAVE REAL PROCEOURE EFOMs F@RWARD} 00350000 
SAVE PROCEDURE KEYCI)3 VALUE Is REAL I? FORWARDS 00360000 
SAVE REAL PROCEDURE IQOERRCIODeR)S 00370000 
Seater nere er _.____VALUE 1003 — 00380000 2 
REAL IO00sR3 00390000 
FORWARDS 00400000 
SAVE REAL PROCEDURE TOCADDRESSsIOO*MASK)$ 00410000 


g 7 > so z = 


@ 
VALUE ADDRESS» 10D*MASK3 00420000 
e REAL ADDRESS»IUD» MASK; 00430000 
BEGIN LABEL Le 000440000. eases he eae 
REAL R»T3 00450000 
@ 10D *¢ ADDRESS OR 1UD3 00460000 
2 ee POT OOD, TIODG Se oN ee ee ee 90470000 ee 
a R * EOM$ 00480000 
e|: T © R AND NOT MASK} oo4vo000e 
co tere FT f2637) 7° 0 THeN 00ND _ 8 
7 IF NOT 7.62981) THEN 00510000 
@: IF IQERRCICGO#R) THEN GU TO LS 00520000 
a — AV) ee RE te ee le ek a oe eal a et OO OOOO on eee te ett ae 
No END} 00540000 
e. SAVE PROCEOURE DISKWRITECLENGTH)3 00550000 
na VALUE LENGTHSREAL LENGTHAD tO 
3 BEGIN LABEL L3 00560000 
"4 REAL JK} 00570000 
[ eee eee ae JERE L5S60400CR600000RLENGTHL27i42so)g OS A00OO 
Ls PCIOCDISK# J»0)eDELDS 00390000 
@ MECHECK) ¢ MCOISK]3 00600000 
Late etesecan: uineiotames GPOCLOCEREOKS: (G1 L2UEO7 2105 OF ROE C585 oo le ey ot ec ON DOO Seenohe oe dar Monee ee 
STREAMCOISK 8X8 SLENGTHs CHECK )3 00620000 
@ BEGIN SI * DISKs SI © S148; DI © DI+83 00630000 
cece sea caves conan sername  XCSCTE 48 SC NEO OC THEN TALLY $5.4))3 3 §=s 00640000... 
DISK « TALLYs END; 00650000 
& IF P THEN 00660000 
‘ Saudlate euuobacectahes suhGhennceins Segcterer ce a BEG UNG IK Oe MA Se FS en en ee ei es EO ONO. s cna acta orr sa! 
$ IF K § 5 THEN GO TO Ls 00680000 
30 KEY(O)3 00690000 
5 ea ee ecoNOE MUI DEDta cd de cee ea ol tena Rites ete len eaten ks asad oo700000. 
: STREAMCDELTAC"30"sDI5K)3 00710000 
s@ BEGIN Sl * LUC DELTAS 00720000 
si Ea tate Ne lage Sie at ot ee UO NO 2B 2 fo re he oe i te OO UO Ue eS to, Solin, 
ENDS | 00740000 
@ END 00750000 
sore Oe VE PR OCEDURE SPACETAPE(N)$ VALUE N# REAL NB UU 7 E0000 
BEGIN REAL [3 00770000 
@« FOR [ « 1 STEP 1 UNTIL N DO 00780000 
etre dd UNTIL LOCTAPEs 9140000C00286000000) eLa7siys = “ asoorvOD0N0 = 
B? END} 00800000 
@*= SAVE REAL PROCEDURE IOERRCIOD»R)S 00810000 
Pa aa cacti e Dd rg oper ta cot ero ed eng ee gee oi oe eS a ee 008e0000 ee eee Ne eee ere 
lo REAL RelOD3 00830000 
@ | BEGIN REAL K3 00840000 
te pi estate ES ge EN te ae te eg a ht we Bt OO SO OOD, ee eer eee 
“ IF Rel30%3)] # O THEN PCisRTNDG 00860000 
@ IF R,f28!1] THEN | 00870000 
i “nhl cave tegen rete alawned pete AE RECO SOD SSO TREN oe. oy et te OO BTL OO 0's eu! ort a lecieas 
—— BEGIN 00872000 
r a FOR Kt2#i STEP 1 UNTIL 5 DO 00873000 
CT RESTO Oe 100402000000) ),£2831)50 THEN 00874000 = Serres 
| 60 EXITs 00874500 
@ ENO ELSE 00875000 
oC BEGINOIF RQO385) THEN 0B HOOOO 
BEGIN 00890000 
e FOR K © 1 STEP 41 UNTIL 5 DO 00900000 
SBE eine Oat cs ao BEGIN PCIOCTAPES@3400000005 == 00910000 F deca 
@6000000)»DEL)3 00920000 
td] sTR She tg cas tOpsescoecces 00930000 
pita eee £28%1] 3.0 THEN | 00940000 _ _ 
 ) 
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Ty @ )e 
GO TO EXITS 00950000 
@ ENDS END 00960000 e 
ac idee RESE BE GUNG i de ie i OPT OOGO ose cae san a 
4 FOR K « 1 STEP 1 UNTIL 5 DO 00980000 
@. IF (ReIGCOs10Ds@2000000)) 00990000 |@ 
: ee ae ee ot 2BIL) 3 0 THEN GO EXITS 01000000. Pee suet 3 
4 END END; 01010000 4 
@': KEYCIF Rel3:5)510 THEN 6 ELSE 01020000 |@ 
A cece ate ce ules steele t SSO OY THEN 7 EL Ge TOoeE Pet) y se. oh ot ee OPOSTOOR: 2c ee. oo nd do Se 6 
” EXIT! ENDS ; 01030000 7 
@: SAVE PROCEDURE KEYC1)3 VALUE Is REAL I3 01040000 |@ 
BEGIN PCTOCEMESS aGFC2xt)) INX 09@7400000000000000)»DEL)S..... 01050000... eee 9 
DO UNTIL I = 33 01060000 el 
@ END3 01070000 /@ 
i set SO ANECINTEGER PROCEDURE PRCT BG to ce ah uetzi natenmily iclaibetan bed Q10g00o0o0 | Si Sipe oe eee 12 
BEGINS 01090000 9 
@ STREAM CASS[BUFFER[9]J*Bt=LPACKERI)3 01100000 \@ 
teenie oe BEGIN SE fm AZ ST $3 St + 4p oon "5 
DI $= Bs DI t= OL + 4} 01120000 16 
@ 4CSKIP 3 $Bs 3CIF SB THEN DSt=SET ELSE SKIP OBsSSKIP §B))301130000 |@ 
eae MSA etl ik Stee ee depts NOD sch al Se ee sg Rca a le a et A chi OOOO 8s ect econl che on i seta ewes Ii SE PU iB 
END 01150000 "8 
@ SAVE PROCEDURE LOADERS 01160000 2 @ 
fe ae A ._ BEGIN LABEL TOPPERS _ eee itt Te 2 on OOO OO st pdt Lek 2 
REAL TEMMP3 01180000 2 
IF LOADED THEN KEY(5)3 01190000 23@ 
——---- —.. TOPPERS STREAMC(Bts(BuFFERLIJ) sAtsBUFFERCoIeletgde = og zuoooo SP PN le Ale tes al ae ee oa 
| DePACKER INX BUFFER)3 04210000 2 
e@ BEGIN SI #83 DS © A WOS3 ENDS 01220000 2 @ 
fe cece LE PCRRR) 002411) THEN SEF CRA READY THEN 01230000... tii 2 
PCIOCBUFFER INx 0»@240120040000000, &3000000),pEL) 01240000 28 
@ ELSE BUFFER(O) t= ©4143 01250000 21@ 
o.. oA UBUFFERCO].C4?44]=0 THEN GO TO TUPPERS = = = 0 OOO Se eee Oe eee ae EY REI ERE sree ee i 
_ TEMMP $= DISK; 01270000 e 
@ DISK t= BUFFER INX 1113 01280000 | @ 
ee 7 LOADED $3 TRUES . Bieta eed ctr OLS 90000 ”...... DRA Sed Reels Rraeeaeone eC 
MCDISK] 2% {3 01300000 24 
@ DISKWRITE(30)3 01310000 4@ 
ig en eee mT e210 eS cd) ee ee Maas OU COO et cans Ausitiie hen! eet Ae Mac ote es Saeed 7 
ps “ENDS 01330000 37 
e SAVE PROCEDURE SCANNERS 01340000 34 @ 
eS re BEGINS et et a ee ge ase ae ade ees Soc A ae 01350000 - 
M4 STREAM (BOtsO0!?IsDs=(TABLEL4)))3 “01360000 40 
BEGIN 01370000 «|@ 
- Bokeh SD ESS Ts eet eee 2 facta i Se stne rts hts SHO OOS 2 ctu ecm oe 4a 
DI t= oO + 43 01390000 4 
DEBLANK! 63 CIF SC = " " THEN SI t= SI # 3 ELSE JUMP OUT) 01400000 4@ 
eels ee ees ete etic, aes oy ahd ote Sak ee ee TU EEN a cy ee ew wham, eee 01410000) 4g 
BEGIN 01420000 ie 
ABLE? SI t= SI + 1; 01430000 «| @] 
saa REARS vit iets anterior GOO DEBIAN a iy ee 01440000 Ss _ 
END ELSE 01450000 4s 
IF SC = "Ss" THEN GO TU ABLE ELSE 01460000 od @ 
o eee et eT 7 CIF SC = " " THEN DS te LIT " " ELSE 01470000. seas 51 
IF SC = "/" THEN OS ts LIT " * ELSE 01480000 5 
IF SC = "23" THEN OS t= LIT " ™ ELSE DS##CHR)3 01490000 s{@ 
ine Foe ee ae Se ES BC 25 Sis as, Sekar — 01500000 ___ 
ENDS 01510000 a 
ts P} 01520000 « @ 
2 PND BOANNERD 01930000 S 
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@ 
SAVE PROCEDURE CORRECT (TAPPE)3 01540000 
& VALUE TAPPES BUCLEAN TAPPES 01550000 . 
een wet cog IE SGIU Ns Sassi oat ow re oS te ae toes ft ee a Seti Boned OP SOUND. bo sacs : a 
(" SCANNERS 01570000 
@»: IF TAPPE THEN TABLEL2) t= TABLEL4) 01580000 
3 een ee gE S Es BEGUN 53 te tea ace eh a Te OO OOO tlhe ai. 02 5 eran Dees 
4 TABLELO) 8= TABLE [4]3 01600000 
@ |: SCANNER} 01610000 
: ea Seanet tinct TABLE bite TAREE SIO pt erates 1) 6 POO Ost 28.6. eke cate ocd 
END3 01630000 
@: END CORRECTS 01640000 
| SAVE PROCEDURE DIRECTORYSCANS a 50D 
a BEGIN LABEL CWT3 01660000 
e| INTEGER DIRECTOPS 01670000 
fil Be eces seem  ta __BUFFER(LO) %3 O38 eae See enen ed JOT O60 00 Oe. ys 
m3 PCIOCBUFFER INX 0*@140000040100000+0)sVEL);. 01690000 
@" DIRECTOP t® BUFFER L2)3 01700000 
FOR ADDR © DIRECTOP + 4 STEP 16 WHILE TRUE pO 01720000... = = ore pers, 
6 BEGINS STREAM CADRS$SLADDRJ*BUFFER)3 01730000 
@” BEGIN SI := ADRS3 01740000 
eer eed > eee nce ae EA ANS og One nn Foes A at th ta eee OLE POU Oe me peans,, checcs gi leanne nate co 7 
hg “ENDS 01760000 
e* PCITOCBUFFER INX O»@1L40000042CO0000sC )»DEL DS 01770000 
ig besBtanlen 2 oheseu FOR IND 33 0 STEP 2 UNTIL 28 DO BOD KOC Reese attr 
BEGIN IF CBUFFERE4/9=INDX] EQv 114) =NOT O THEN KEY(4)3 01790000 
@ » IF CBUFFERLD479*1LiwUX)] EQv TABLELOJ)=NOT O THEN 01800000 
a EF CBUFFERC480"~TNDX) E€@V TaBLEC1])=NOT O THEN GO OWT503810000 ss 
bs “ENDS END} 01820000 
@ x OWT IF BeCCTABLECS)*BUFFERC4SS1"INDXx15] 0) THEN TABLEL3I*FILEBASES 01830000 
a dorset hates STREAMCASSTABLEC3), Bt=CMESSAGEL24JI])3 = = OOOO 
J BEGIN SI s= LOC A$’ DS!=8 DECs END; 01850000 
@ KS =BUFFERC 4295" INDXx15]3 01855000 
‘: rth ca, NOs Seg ait Elen se at ett ects a tl tae eile OO OU Oran on Ah ne te 
a SAVE PROCEOURE FINOMCP3 01870000 
@» BEGIN 01880000 
a eee oF PCRRR).f2481) THEN ite na a nceadn ata bat tt OO OO. 425...) ssonges: 
fa BEGIN 01900000 
@ po 01910000 
POD ses nes at BEGIN 2 Spee Patek, aie hae Sea ace ail Ss OOO Otel se fei Mla whet tit tee 
p? I t= PCBUFFER INX O08 01930000 
@* PCIOCBUFFER INX 0,6©24012004C000000s@7400000)sDEL)s 01940000 
a _ IF C*#(BUFFERCOJJEQV O)SNOT O THEN LOADERS = =—=s—s04980000. i ss—‘“‘—i‘<‘<iCitits 
lao SCANNERS 01960000 
@ : IF (TABLEL4S) EQV “FILE ")sNOT O THEN 01970000 
: ess d LM CORRECTCFALSE)S OO 9 BOD00 RAE Te eer ee 
a TF CTABLEC4). EQV "TAPE  ")mNOT O THEN 01990000 
@:. CORRECT( TRUE) 02000000 
° deh eee END UNTIL CPCRRR)ef24ta)y20 OOD 
Ke OR CCTABLELSJEQV"STOP 8 “)=NOT 0))3 02011000 
er END3 02020000 
DI RECTORYSCANS ge a a ie a Se os trices SOO IU OO cath hs = 
ENDS 02040000 
] SAVE PROCEDURE UPDATEDIRECTS 02050000 
__ BEGIN 02060000. 
AC11) %= TABLE (3)3 02070000 
& AC 5) t= PCDUPs_OD*»SSP)% %*CLEAR SIGN BIT SO MCP WONT REMOVE 02080000 
_STREAMCABYS ADDR +( C28" INUXIDIV 2)pA)3 O2090000.. 
BEGIN Sls=LOc ABsIDS*#*8 DECS END! 02100000 
e PCIOCA INX 09@14036010010000000)sDEL)3 aa 02110000 
= ts @ 403 SF IND SYSTEM NUMBER BOON acess 
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ae € 
BUFFERL1) t= 03 02130000 
rd PCIOCBUFFER INX 02@140004000000000% 84000000)» CEL)3 02140000 @ 
See cep NL RS Or EE a ae ae a eee ett OD TIOOOU< oA. o> em ontencasetaeee oe le 
7 INDX 2® 11 #CINOXK5)3 02160000 
@. BUFFERLCO) t= 03 02170000 1@ 
Bi Rt a BP Ges | . PCTOCBUFFER INX 02@140000040400000%0)sUEL)$ = sss = pt B00000—O—~—~™S eee cee Ee 3 
‘ BUFFERLINDX#2) 25 TABLE [313 02170000 ‘ 
e: BUFFERLINDX41) t= TABLE L133 02200000 3|@ 
Oe ee BUF FERCINOX] t= TABLE [CO]; GPT a tats setae OOO ches, ee Grates en talsCuteerte ta 68 tate ecrlan ea eco e t 6 
n PCIOCBUFFER INX 0+@140360100100000»0)»DEL)3~ 02220000 7 
@: MCDISK) t= MESSAGEL24]3 02230000 | 1@ 
, eee ae ENDS. ea eee reer ee 02240000... fs 
0 SAVE PROCEDURE ASKS” 02241000 10 
@' BEGIN 02241100 /@ 
oo connec STREAM CIs Ke T3300 BSS CMESSAGELIAII D5 02241200 | Si detsta Seiten ee ee ce ee 2 
"3 BEGIN . 02241300 13 
@ |. SItsLOc Ks pSt88 DECSs Tt=pls oltsul"8; 08%88 FILL; 02241400 @ 
Me een oo EE SLOC JF OLteTs OLt2O1493 OSt=B VECS = HHO Pe ene ee S24. 105 
16 DIt=DI"a3} OSt=8 FILLS 02241600 ig 
r ENDS 02241700 /@ 
Mm RP CTOCEMESSAGELI6OI] INx Or@740000000000000-0)-DEL)s = OR e4tBCO sis A aces at ec Ree Pak =e te it gee eke en ee 
19 PCIOCCMESSAGEL1513 INX 0¢®740000040000000s0) »DEL D3 02241900 19 
@. STREAM(Q4=03622(MESSAGEL16143 02242000 y@ 
—_ ae BEGIN SItsgs PED peta oat hs Lae cette cas OPA NO Oe foci hon n2, Gon See oa et 21 
Li IF Scs" " THEN BEGIN Sli=S$]+ 13 G0 70 L END? 02242200 | 2 
@» iF SCE"C" THEN S1t®SI+1 ELSE GO AWAYS 02242300 oy @ 
Be atic I ah otinm athe area eG eT KY TREN. TALLY tet EES EGO cAWAY Eo toh Os Gd on Se OREM OU OD oc oy giving lb siceeee dye ce tlnn ee ci acs wean eee, 2d 
ps AWAY G3=TALLYS 02242500 2 
@ 2 ENO STREAM} 02242600 2 @ 
ea IOs a ha het Baers Rc te OOM AOU voice, ...0 fie dactlisintaieh Re Pah ea el se, We, ee 
BEGIN 02242800 8 
 ) STREAM(Bta{MESSAGE(L16]1)3 02242900 21 
settee tes Hos OSt=17 LIT "MCP LOAD ABORTEDe™S 2 243000 Ah dy Sichctecent los Aat tas, MRA ae teed N Set a a, eli 
KEY(8)3 02243100 3 
@: ENDS 02243200 |@ 
i .. ENDS Dedies 23s tnd jal edi te Sunn pated tee ee te en’, OZCRI{IOO. -_ sath al hes teas feta one ena ee reel See A tee a 
SAVE REAL PROCEDURE FOM3” 02250000 34 
@» BEGIN GO TU TIMER END; 02260000 =1@ 
woof URST  §@203 GO TO STARTS hse Bir ae Tea oe A tte We a> A801 8 ete a a ee a ee Pe rch 36 
a7 TIMER %@223PCINI)$ GU TU TIMERS 02290000 97 
@ |: :@24:G0 TO TIMER 02300000 34@ 
ig eee PO251G0 TO TIMER oe ee a ORS TOONS. pis ete fetn, RTE Be 


$@26:GO TO TIMER; 

SO273PCOL4oLCD-RIN)S 
~A@IOIPCOLSeLODerRIN)S 

$O3L2PCOL6*sLODesRTN)3 

S@32°PC@L7sLODeRTN)S 
$834:G0 TO TIMERS 

$@363:G0 TO TIMER; 

lots TO ee ore ate READ cB GE 
~STARTIWEA. “SNE tee e EONo TET eLTEI TELE 
DISK «A, C33t15)5— 


_AINQUIRY REQUEST 


CHECK ¢ SK+10 
BUFFER %&s (WECHECK4 1030) 18 1000t81 384101 
PC64sSTS)3 


eat ieee as ON CS 


FOR 1 * 1 STEP 2 UNTIL 31 Ti 
PCTO (O0s@42000000008 1(3243%5)> 


02320000 


REPORT FREE ADDRESS 


@500000)* DEL D3 


02330000 
Be? 2" 101° 8 ee ee : 
02350000 ‘ 
02360000 4@ 
see OSITQ00G oo ci veecleuce ee ee by 
02380000 “6 
02390000 | @) 
02400000 . 
02410000 : 
02420000 «® 
Oe 8 ct ee are tt ag, ee eg en wes ca ®t 
02440000 ; 
02450000 sf @ 
tay. erry ER ee ere 54 
02470000 . 
02480000 oo @ 
02490000 5 
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COC*CACSIIIEQV “"FILEVOO") 


5 © @ YS mA oH bk wD Per = 


FOR ft © 4 STEP 2 UNTIL 31 DU 02500000 
BEGIN 02510000 
TAPE t= CA TNX 1798 16324525)5 02920000 | 
IF IOCTAPES @ 17770540000000+ 6500000) (2637 7) = 0 THEN 02530000 

IF C€#CAC1II) EQVC*FLAGCY"LABEL = "™))*®NOT O)AND 02540000 
7 CCC*CALCZIJIEQV TABLEL[2]) = = B@NOT O)AND 02550000 


SNOT O)ITHEN GU TO FOUNDs02960000 


_DO UNTIL FALSES e 02830000 


@ 
e 
@ 
e PCIOCTAPEs@42U0000000,#500000) sDEL)3 02570000 
seipes END ata of Eas one Se nT eae = O25H0G00 eee 
UNTIL FALSES | ~~ 92590000 
@ : 02600000 
sade GE RR OG ae aa ee ee te SOO ROOON on. oc yc. ceo eae 
10 P( IOC TAPE 2 €@177705400G0000» 0)»DEL)3 02620000 
@' FOR 1 ¢ 1 STEP 2 UNTIL 512 DO 02630000 
Pe ee ne veh OCCATTY OE QV TABLETO] 2 SNCT C) AND UU Rb 4O000 
is CCACI41) €QV TABLEL1] ) =NOT 0) 02650000 
@ :: THEN GO TO GOTCHA 02660000 
jc Sede ER ED ... ELSE IF ALT) = @14 THEN KEY¢2)3 _._O2670000 0 
18 GUTCHAS 02680000 
@” SPACETAPE (141)3 0269C000 
if PO OCTAPE® ©17770540000000 20)-DELIR. esss—“—s—ssSC POLL a 
3 JIsACOD3 02701000 
@” IF J GTR K THEN ASK3 . 02702000 
Yo UP BATEDIRECTS | emic.02. bah tae  e S Ee aas h k eeeOOP LOO OE ns ieee 
a2 ADDR32aL9] DIV 303 02720000 
oR FOR I ¢ 1 STEP 1 UNTIL ADDR DC 02730000 
e Seger BEGIN ea ee ee a ec Ot BOO! ee ere ee eee ae ee 
PCIO (TAPE @17770540000000 50)sDELDS 02750000 
@ * DISKWRITE(C30)3 02760000 
: Seacrest OP Na Ne nh a ie ea ia a tees as ata Se eon ate oz770000.. eee 
a IFCADDR&= yu MOU 30) > O THEN 02771000 
rd] BEGIN 02772000 
ag ee nna PATO CTAPES @1777054000000020)sDELIS 72000 
: DISKWRITECADOR)3 02774000 
@ END3 02775000 
PP POTO CTAPEs @420000000020)-UEL)s sr B0000 OC 7 eee 
ba IF B THEN BEGIN} 02781000 
@» STREAMCAC(TAULEL 3] ] +X*(MESSAGEL611)3 02781100 
ee __ BEGIN DIeDI+I5s0S¢2UL1T" TG DEFAULT ADDRESS="3 02781200 | eee oe ee 
: ~ SL#AS DS*BDECADSeLIT"e"}3 02781300 
e DI©DI*9;0S¢8 FILL; 02781400 
Geshe n  NUDRce' EN RE eRe reese Se a8 -S-  15 8 2 
END} 02761600 
@ IF J GTR K THEN 02762000 
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